home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8411.d64 / list 6 (dump) (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  552b  |  15 lines
  1. 50 REM ********************************
  2. 51 REM *          D  U  M  P          *
  3. 52 REM ********************************
  4. 53 REM * BERICHTIGUNG DES             *
  5. 54 REM * SIMON'S BASIC-BEFEHLS dL   *
  6. 55 REM ********************************
  7. 59 K=0:PRINT" D U M P [146]    ?CHECKSUM ";
  8. 60 FOR I=$9F9C TO $9FA7:READ J:POKE I,J:K=K+J:NEXT
  9. 61 DATA 160,4,32,57,160,136,208,250,234
  10. 62 DATA 234,234,234:POKE $80B9,221:POKE $808C,68
  11. 63 POKE $9FD6,240:POKE $9FD7,27:POKE $9FD8,200
  12. 64 FOR I=$9FF0 TO $9FFC:READ J:POKE I,J:K=K+J:NEXT
  13. 65 DATA 160,4,44,160,5,169,34,32,210,255,76,158,159
  14. 66 IFK=3409THENPRINT"OK":dG:PRINT"ERROR
  15.